﻿Module Module1
  Sub Main()

    Dim auto1 = New With {.Marca = "Renault", _
        .Modello = "Megane", .Cilindrata = 1600, _
        Key .Targa = "AA999AA"}

    ' con tipo anonimo:
    Dim auto2 = _
        New With {Key .Marca = "Renault", _
            .Modello = "Megane", _
            .Cilindrata = 1600, _
            .Targa = "AA999AA"}

    ' con classe tradizionale:
    Dim auto3 = New Auto("KK345AA")
    auto3.Marca = "Fiat"
    auto3.Modello = "Punto"
    auto3.Cilindrata = 1400

    ' messaggio:
    Dim msg As String = ""
    Dim NL As String = Environment.NewLine
    msg &= "auto2 = " & _
        auto2.ToString & NL & NL
    msg &= "auto3 = " & auto3.ToString
    Console.WriteLine(msg)
    Console.ReadLine()

  End Sub
End Module
